Delphi 2.0 - Programmer's Utilities Power Pack/Delphi 2.0 Programmer's Utilities Power Pack.iso/m_to_r/mailx4/msgform.fr_/msgform.bin

Visual Basic Form | 1996-09-15 | 6.5 KB | 225 lines

VERSION 2.00
Begin Form MsgForm
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Message Form"
   ClientHeight    =   3975
   ClientLeft      =   1290
   ClientTop       =   4140
   ClientWidth     =   6285
   Height          =   4350
   Left            =   1245
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3975
   ScaleWidth      =   6285
   Top             =   3810
   Width           =   6375
   Begin ComboBox szFileList
      Height          =   300
      Left            =   1320
      TabIndex        =   15
      Top             =   2655
      Width           =   1935
   End
   Begin MReci MReci1
      AddRecipientClass=   1  '1- TO:
      AddressCaption  =   ""
      AddressEditNum  =   3
      BindString      =   "MMsg1"
      DetailModifiable=   -1  'True
      DisplayErrors   =   0   'False
      FetchType       =   0  '0- Originator
      Height          =   420
      Left            =   120
      ResolveDialog   =   -1  'True
      Top             =   1635
      Width           =   420
   End
   Begin MFile MFile1
      BindString      =   "MMsg1"
      DisplayDialog   =   0   'False
      DisplayErrors   =   0   'False
      Height          =   420
      Left            =   690
      Top             =   1635
      Width           =   420
   End
   Begin TextBox szOriginator
      Height          =   375
      Left            =   4440
      TabIndex        =   14
      Top             =   2640
      Width           =   1575
   End
   Begin SSPanel Panel3D1
      BackColor       =   &H00C0C0C0&
      BevelInner      =   1  'Inset
      Font3D          =   0  'None
      Height          =   615
      Left            =   -15
      TabIndex        =   8
      Top             =   0
      Width           =   6300
      Begin CommandButton BtnSend
         Caption         =   "Send"
         Height          =   420
         Left            =   4290
         TabIndex        =   16
         Top             =   75
         Width           =   1125
      End
      Begin CommandButton BtnForward
         Caption         =   "Forward"
         Height          =   420
         Left            =   2865
         TabIndex        =   11
         Top             =   75
         Width           =   1155
      End
      Begin CommandButton btnReply
         Caption         =   "Reply"
         Height          =   420
         Left            =   1440
         TabIndex        =   10
         Top             =   75
         Width           =   1170
      End
      Begin CommandButton BtnHide
         Caption         =   "Hide Msg"
         Height          =   420
         Left            =   105
         TabIndex        =   9
         Top             =   75
         Width           =   1125
      End
   End
   Begin MMsg MMsg1
      BindString      =   "FormTag2.MSess1"
      BodyAsFile      =   0   'False
      DisplayErrors   =   0   'False
      DisplaySendDialog=   -1  'True
      EnvelopeOnly    =   0   'False
      FetchMsgType    =   ""
      Height          =   420
      Left            =   285
      MarkAsRead      =   -1  'True
      SortMsg         =   0   'False
      SuppressAttach  =   -1  'True
      TimeFormat      =   "%I:%M:%S %p. %B %d, %Y "
      Top             =   3480
      UnreadOnly      =   0   'False
      Width           =   420
      WorkingMsg      =   0  '0- Inbox Message
   End
   Begin MForm MForm1
      Height          =   300
      Left            =   4035
      MXFormName      =   "FormTag4"
      Top             =   3630
      Width           =   1350
   End
   Begin TextBox szMsgID
      Height          =   495
      Left            =   1320
      TabIndex        =   7
      Top             =   3120
      Width           =   4695
   End
   Begin TextBox szTime
      Height          =   375
      Left            =   1200
      TabIndex        =   6
      Top             =   2160
      Width           =   4815
   End
   Begin TextBox szNoteText
      Height          =   855
      Left            =   1200
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   1200
      Width           =   4815
   End
   Begin TextBox szSubject
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   720
      Width           =   4815
   End
   Begin Label Label6
      BackColor       =   &H00C0C0C0&
      Caption         =   "Attachments:"
      Height          =   375
      Left            =   120
      TabIndex        =   13
      Top             =   2640
      Width           =   1215
   End
   Begin Label Label5
      BackColor       =   &H00C0C0C0&
      Caption         =   "Originator:"
      Height          =   375
      Left            =   3450
      TabIndex        =   12
      Top             =   2685
      Width           =   960
   End
   Begin Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Message ID:"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   3240
      Width           =   1215
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Time:"
      Height          =   270
      Left            =   150
      TabIndex        =   4
      Top             =   2235
      Width           =   855
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Note Text:"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1200
      Width           =   975
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Subject:"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   855
   End
Sub BtnForward_Click ()
    MMsg1.NoteText = szNoteText
    MMsg1.Action = ACTION_FORWARD
    MMsg1.Action = ACTION_SENDMSG
End Sub
Sub BtnHide_Click ()
    Unload Me
End Sub
Sub btnReply_Click ()
    MMsg1.Action = ACTION_REPLY
    MMsg1.Action = ACTION_SENDMSG
End Sub
Sub BtnSend_Click ()
    MMsg1.Subject = szSubject
    MMsg1.NoteText = szNoteText
    MMsg1.Action = ACTION_SENDMSG
    If MMsg1.ErrorNum <> 0 Then
        MsgBox "Error Sending Message"
    End If
End Sub